home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / pcboard / vrs501.zip / VRS-M991.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-10-08  |  3KB  |  152 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     String   STRING001
  21.     String   TSTRING002(9)
  22.     String   STRING003
  23.     String   STRING004
  24.     Byte     BYTE001
  25.  
  26. ;------------------------------------------------------------------------------
  27.  
  28.     Goto LABEL001
  29.     End
  30.     If (0 == 0) STRING001 = "NO"
  31.     If (0 == 1) STRING001 = "YES"
  32.  
  33.     EndFunc
  34.  
  35.     :LABEL001
  36.     TSTRING002(1) = "TRSF_LIMIT"
  37.     TSTRING002(2) = "PL_BATS"
  38.     TSTRING002(3) = "R_BATS"
  39.     TSTRING002(4) = "DDELETE"
  40.     TSTRING002(5) = "MAINT"
  41.     TSTRING002(6) = "BANK_BAL"
  42.     TSTRING002(7) = "BANK_INT"
  43.     TSTRING002(8) = "LOTTO"
  44.     TSTRING002(9) = "BLT_PATH"
  45.     DOpen 0, PPEPath() + "VRS.DBF", 0
  46.     DTop 0
  47.     :LABEL002
  48.     Cls
  49.     Newline
  50.     PrintLn "@X1F" + Space(24) + "VRS System Configuration Editor@CLREOL@@X07"
  51.     Newlines 2
  52.     PrintLn "@X0A(@X0C1@X0A)@X0F Player to player daily credit transfer limit: @X0E", Trim(DGet(0, "TRSF_LIMIT"), " ")
  53.     PrintLn "@X0A(@X0C2@X0A)@X0F Number of player vs player battles per day: @X0E", Trim(DGet(0, "PL_BATS"), " ")
  54.     PrintLn "@X0A(@X0C3@X0A)@X0F Number of player vs mutant battles per day: @X0E", Trim(DGet(0, "R_BATS"), " ")
  55.     PrintLn "@X0A(@X0C4@X0A)@X0F Number of days to player deletion: @X0E", Trim(DGet(0, "DDELETE"), " ")
  56.     PrintLn "@X0A(@X0C5@X0A)@X0F Last maintenance date: @X0E", Trim(DGet(0, "MAINT"), " ")
  57.     PrintLn "@X0A(@X0C6@X0A)@X0F Bank balance : @X0E", Trim(DGet(0, "BANK_BAL"), " ")
  58.     PrintLn "@X0A(@X0C7@X0A)@X0F Bank interest: @X0E", Trim(DGet(0, "BANK_INT"), " ")
  59.     PrintLn "@X0A(@X0C8@X0A)@X0F Lotto jackpot: @X0E", Trim(DGet(0, "LOTTO"), " ")
  60.     PrintLn "@X0A(@X0C9@X0A)@X0F VRS.BLT Bulletin Path: @X0E", Trim(DGet(0, "BLT_PATH"), " ")
  61.     Newline
  62.     STRING003 = ""
  63.     InputStr " (Q)uit, (H)elp, (#) Field to edit", STRING003, 10, 1, "123456789QH", 2 + 4 + 8
  64.     If ((STRING003 == "") || (STRING003 == "0")) Goto LABEL002
  65.     If (STRING003 == "Q") Goto LABEL004
  66.     If (STRING003 == "9") Goto LABEL003
  67.     BYTE001 = ToByte(STRING003)
  68.     INTEGER001 = DGet(0, TSTRING002(BYTE001))
  69.     InputStr " NEW VALUE FOR THIS FIELD", INTEGER001, 15, 45, Mask_Num(), 2 + 4 + 128
  70.     INTEGER001 = Trim(INTEGER001, " ")
  71.     If (INTEGER001 == "") Goto LABEL002
  72.     DPut 0, TSTRING002(BYTE001), INTEGER001
  73.     Goto LABEL002
  74.     :LABEL003
  75.     Backup 80
  76.     ClrEol
  77.     BYTE001 = ToByte(STRING003)
  78.     STRING004 = DGet(0, TSTRING002(BYTE001))
  79.     PrintLn " @X0ABULLETIN PATH & FILENAME @X0E"
  80.     InputStr "_", STRING004, 15, 68, Mask_Ascii(), 0 + 8
  81.     STRING004 = Upper(Strip(STRING004, " "))
  82.     If (STRING004 == "") Goto LABEL002
  83.     DPut 0, TSTRING002(BYTE001), STRING004
  84.     Goto LABEL002
  85.     :LABEL004
  86.     DCloseAll
  87.     Call PPEPath() + "VRS-M80.PPE"
  88.     DCloseAll
  89.     End
  90.  
  91. ;------------------------------------------------------------------------------
  92. ;
  93. ; Usage report (before postprocessing)
  94. ;
  95. ; ■ Statements used :
  96. ;
  97. ;    2       End
  98. ;    1       Cls
  99. ;    1       ClrEol
  100. ;    8       Goto 
  101. ;    18      Let 
  102. ;    11      PrintLn 
  103. ;    7       If 
  104. ;    3       InputStr 
  105. ;    2       Newline
  106. ;    1       Newlines 
  107. ;    1       Call 
  108. ;    1       Backup 
  109. ;    1       EndFunc
  110. ;    1       DOpen 
  111. ;    2       DCloseAll
  112. ;    1       DTop 
  113. ;    2       DPut 
  114. ;
  115. ;
  116. ; ■ Functions used :
  117. ;
  118. ;    9       +
  119. ;    8       ==
  120. ;    1       ||
  121. ;    1       Upper()
  122. ;    1       Space()
  123. ;    10      Trim()
  124. ;    1       Strip()
  125. ;    1       Mask_Num()
  126. ;    1       Mask_Ascii()
  127. ;    2       PPEPath()
  128. ;    2       ToByte()
  129. ;    11      DGet()
  130. ;
  131. ;------------------------------------------------------------------------------
  132. ;
  133. ; Analysis flags : C
  134. ;
  135. ; C - Call child PPE ■ 3
  136. ;     This is usually normal, but may be a tricky way to launch some
  137. ;     sysop-only commands.
  138. ;     ■ Search for : CALL
  139. ;
  140. ;------------------------------------------------------------------------------
  141. ;
  142. ; Postprocessing report
  143. ;
  144. ;    0       For/Next
  145. ;    0       While/EndWhile
  146. ;    0       If/Then or If/Then/Else
  147. ;    0       Select Case
  148. ;
  149. ;------------------------------------------------------------------------------
  150. ;                 AEGiS Corp - Break the routines, code against the machines!
  151. ;------------------------------------------------------------------------------
  152.